Option Explicit
Sub A_Sample038()
    Dim myRng As Range
    Dim myWd As Window
    Set myWd = Workbooks(1).Windows(1)	'N
    'ǳƨ즹
    Set myRng = myWd.VisibleRange
    MsgBox myRng.Address
    Set myRng = Nothing			'
    Set myWd = Nothing
End Sub

